home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / powerb5.zip / ROMINFO.BAS < prev    next >
BASIC Source File  |  1993-06-01  |  1KB  |  44 lines

  1. DEFINT A-Z
  2. CLS
  3. DEF SEG = &HF000
  4. SystemID = PEEK(&HFFFE)
  5. ROMDate$ = ""
  6. Copyright$ = ""
  7. FOR I = 0 TO 7
  8.    C$ = CHR$(PEEK(&HFFF5 + I))
  9.    IF ASC(C$) < 32 THEN C$ = "?"
  10.    ROMDate$ = ROMDate$ + C$
  11. NEXT I
  12. FOR I = 0 TO 100 STEP 2
  13.    C$ = CHR$(PEEK(&H0 + I))
  14.    IF ASC(C$) < 32 THEN C$ = "?"
  15.    Copyright$ = Copyright$ + C$
  16. NEXT I
  17. DEF SEG
  18. PRINT "ROM date: "; ROMDate$
  19. PRINT "Copyright notice: "; Copyright$
  20. PRINT "System ID number: "; HEX$(SystemID)
  21. PRINT "Type of system: ";
  22. SELECT CASE SystemID
  23.    CASE &HFF
  24.       PRINT "IBM PC or PC clone"
  25.    CASE &HFE
  26.       PRINT "IBM XT, Portable PC or XT, or XT clone"
  27.    CASE &HFD
  28.       PRINT "PC Junior"
  29.    CASE &HFC
  30.       PRINT "AT, PS/2 Model 50/60, or AT/386 clone"
  31.    CASE &HFB
  32.       PRINT "IBM XT or XT clone"
  33.    CASE &HFA
  34.       PRINT "IBM PS/2 Model 25 or Model 30"
  35.    CASE &HF9
  36.       PRINT "IBM Convertible"
  37.    CASE &HF8
  38.       PRINT "IBM PS/2 Model 70 or 80"
  39.    CASE ELSE
  40.       PRINT "unlisted PC model"
  41. END SELECT
  42. SYSTEM
  43.  
  44.